object fSelectMarkType: TfSelectMarkType
  Left = 708
  Top = 458
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #1042#1099#1073#1086#1088' '#1090#1080#1087#1086#1074' '#1086#1090#1084#1077#1090#1086#1082
  ClientHeight = 219
  ClientWidth = 277
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  DesignSize = (
    277
    219)
  PixelsPerInch = 96
  TextHeight = 13
  object clbMarkType: TcxCheckListBox
    Left = 5
    Top = 5
    Width = 267
    Height = 179
    Anchors = [akLeft, akTop, akRight, akBottom]
    Items = <>
    TabOrder = 0
    OnEditValueChanged = clbMarkTypeEditValueChanged
  end
  object pBot: TPanel
    Left = 0
    Top = 184
    Width = 277
    Height = 35
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object bOk: TcxButton
      Left = 5
      Top = 5
      Width = 129
      Height = 25
      Caption = #1054#1050
      Default = True
      ModalResult = 1
      TabOrder = 0
      Spacing = 5
    end
    object bCancel: TcxButton
      Left = 142
      Top = 5
      Width = 131
      Height = 25
      Cancel = True
      Caption = #1054#1090#1084#1077#1085#1072
      ModalResult = 2
      TabOrder = 1
      Spacing = 5
    end
  end
  object qCanDeleteColumn: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      'select count(*)'
      'from CJ_MARK m'
      'join agr_poluch_uslug ag on ag.pid = m.pupil_id'
      'join spec_cond sc on sc.agid = ag.agid'
      'join deti_podrazd_sc d on SC.SCID = D.SCID'
      'where m.subject_id = :SUBJECT_ID'
      '  and m.mark_type_id = :MARK_TYPE'
      '  and m.lesson_id = :LESSON_ID'
      '  and D.sdid = :CLASS_ID'
      '  and ((sc.scisdelete is null) or (sc.scisdelete = 0))'
      '  AND CURRENT_DATE BETWEEN D.DPDATEIN AND D.DPDATEOUT')
    Left = 320
    Top = 264
    qoStartTransaction = True
  end
end
